home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / TOT / DEMO.EXE / arc / DEMFS2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  577b  |  28 lines
  1. Program DemoFastTwo;
  2. {DEMFS2}
  3.  
  4. USES DOS,CRT,
  5.      totSYS, totINPUT, totFAST;
  6.  
  7. var 
  8.   WasOn: boolean;
  9.   Dep : byte;
  10. begin
  11.    Monitor^.SetCondensed;
  12.    Dep := Monitor^.Depth;
  13.    Mouse.Show;
  14.    Mouse.Confine(1,1,80,Dep);    {tell mouse how far it can go}
  15.    ShadowTot^.SetShadowSize(2,2);
  16.    with Screen do
  17.    begin
  18.       Clear(31,' ');
  19.       ShadFillBox(2,2,40,Dep-10,65,2);
  20.       ShadFillBox(35,20,75,dep-3,112,1);
  21.       Writecenter(Dep,31,'Press any key to exit');
  22.       GotoXY(1,dep);
  23.    end;
  24.    Key.GetInput;
  25.    Mouse.Hide;
  26.    Monitor^.Set25;
  27. end.
  28.